home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / comm / cmohp53.zip / INSTAL95.MAC < prev    next >
Text File  |  1992-06-20  |  2KB  |  75 lines
  1.           ┌───────────────────────────┐
  2.           │ Install Macro for HP 95LX │  See INSTAL95.DOC
  3.           └───────────────────────────┘
  4.  
  5. {:instal95}
  6.   {setesc-p0 done} {clear}
  7.   {setv comm,1}
  8.   {input comm,Enter your serial port number}
  9.   {parms 19200,8,%comm,A,0}
  10.   {setv path,C:\COMMO\HP95\}
  11.   {input path,Enter the path to the HP 95LX files}
  12. {:reenter}
  13.   {setv drive,C}
  14.   {input drive,Enter the HP 95LX drive letter, A or C}
  15.   {subs drive,1,1,%drive}
  16.   {comp drive,a} {ifco ,tryc}
  17.   {setv drive,A} {setv 95path,A:\;A:\COMMO;C:\;C:\_DAT} {goto driveok}
  18. {:tryc}
  19.   {comp drive,c} {ifco ,reenter}
  20.   {setv drive,C} {setv 95path,C:\;C:\_DAT;C:\COMMO}
  21.  
  22. {:driveok}
  23.   {setv name,COMMO.COM}   {setv file,COMMO95.COM}   {call sendfile}
  24.   {setv name,COMMO.SET}   {setv file,COMMO95.SET}   {call sendfile}
  25.   {setv name,COMMO.FON}   {setv file,COMMO95.FON}   {call sendfile}
  26.   {setv name,COMMO.MAC}   {setv file,COMMO95.MAC}   {call sendfile}
  27.   {setv name,COMMO.HLP}   {setv file,COMMO95.HLP}   {call sendfile}
  28.   {setv name,EXM.DOC}     {setv file,EXM.DOC}       {call sendfile}
  29.  
  30.   {wopen %path%temp.$$$}
  31.   {write SHELL=C:\COMMAND.COM /P}
  32.   {wclose}
  33.   {setv name,CONFIG.SYS}    {setv file,temp.$$$}     {call sendfile}
  34.  
  35.   {wopen %path%temp.$$$}
  36.   {write ECHO OFF}
  37.   {write PROMPT [DOS]$P$G}
  38.   {write SET COMMO=%drive:\COMMO}
  39.   {write PATH=%95path}
  40.   {write ECHO.}
  41.   {write ECHO       Press CTRL-C to go to DOS.}
  42.   {write ECHO   Press any other key to go to SYSMGR.}
  43.   {write PAUSE>NUL}
  44.   {write PROMPT [SYS]$P$G}
  45.   {write $SYSMGR}
  46.   {wclose}
  47.   {setv name,AUTOEXEC.BAT}  {setv file,temp.$$$}     {call sendfile}
  48.  
  49.   {wopen %path%temp.$$$}
  50.   {write %drive:\COMMO\COMMO.EXM,B200,^(COMMO^)}
  51.   {wclose}
  52.   {setv name,APNAME.LST}    {setv file,temp.$$$}     {call sendfile}
  53.   {exec-n del %path%temp.$$$}
  54.  
  55.   {setv name,COMMO.EXM} {setv file,C_COMMO.EXM} {comp drive,c} {ifcon loader}
  56.   {setv file,A_COMMO.EXM} {:loader} {call sendfile}
  57.  
  58.   {clear} {disp 3,26,4e,  Finished!, Press Alt-X  } {}
  59.  
  60. {:sendfile}
  61.   {clear}
  62.   {disp 3,12,1e, Now sending  %drive:\COMMO\%name}
  63.   {disp ,,9e, ^q═}
  64.   {disp ,,1e, pathname for HP 95LX }
  65.   {beep} {pause 2}
  66.   {sxmodem-d0 %path%%file}
  67.   {iferror 1,done}
  68.   {return}
  69.  
  70. {:done}
  71.   {exit}
  72.  
  73.                 - end -
  74.  
  75.